﻿Imports System

Namespace System.Workflow.Runtime
    <Serializable> _
    Public Class CorrelationProperty
        ' Methods
        Public Sub New(ByVal name As String, ByVal value As Object)
            If (name Is Nothing) Then
                Throw New ArgumentNullException("name")
            End If
            Me.name = name
            Me.value = value
        End Sub


        ' Properties
        Public ReadOnly Property Name As String
            Get
                Return Me.name
            End Get
        End Property

        Public ReadOnly Property Value As Object
            Get
                Return Me.value
            End Get
        End Property


        ' Fields
        Private name As String
        Private value As Object
    End Class
End Namespace

